home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 47 / MOBICLIC 47.ISO / mac / DATA / COMMUNS / MENUBG.DIR / 00031_Script_SCRIPTS_GENE_MENUBG < prev    next >
Text File  |  2002-07-23  |  799b  |  29 lines
  1. global validMBG, ouvreMenuBG, rollMessBG, menuFermeBG, gNbStamps, gfirstStampTrackNo
  2. ----------------------
  3. on prepareMovie
  4.   gNbStamps = count(validMBG)
  5. end
  6. ----------------
  7. on griser
  8.   repeat with i=1 to gNbStamps
  9.     if validMBG[i]= 0 then
  10.       Nopiste = gfirstStampTrackNo + i -1
  11.       tampon = sprite(Nopiste).member.name
  12.       puppetsprite Nopiste, TRUE -- on rend la piste esclave pour conserver le changement d'acteur
  13.       sprite(Nopiste).member = tampon&"_G"
  14.       updateStage
  15.     end if
  16.   end repeat
  17. end
  18. ----------------------------------
  19. on fermerMenu
  20.   rollMessBG = "nul"
  21.   ouvreMenuBG=0
  22.   repeat with i=1 to gNbStamps
  23.     Nopiste = gfirstStampTrackNo + i -1
  24.     puppetSprite Nopiste, 0
  25.   end repeat
  26.   go "fin"
  27. end fermerMenu
  28. ------------------------------
  29.